#!/usr/bin/env raku

sub MAIN(Str $file) {
    my Int $count = 0;
    my $file_base = $file.IO.basename;
    $file_base = "new_$file_base";
    for $file.IO.lines -> Str $line {
        my Str $new_line = "";
        if $line.starts-with('```') {
            $count++;
            if $count % 2 {
                $new_line = "{$line}Raku";
            }
        }

        if not $new_line {
            $new_line = $line;
        }

        say $new_line;
    }
}
